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Save Your Fingers, Save Your Eyes 


Remember that all the source programs which appear in the Apple 
Assembly Line are available on disk, ready to assembly with the 
S-C Assembler II Version 4.0. Every three months I collect it all 
on a Quarterly Disk, and you can get it for only $15. QD#l covers 
AAL issues 1-3 (October thru December 1980), and QD#2 covers AAL 
issues 4-6 (January thru March 1981). QD#3 will be out at the end 
of May, covering issues 7-9. Some AAL subscribers have chosen to 
set up a standing order for the Quarterly Disks, so they get them 
as soon as they are ready. 


Not only does it save you a lot of typing time. You also are 
saved the hours you might spend looking for the inadvertant 
changes you made while you typed! 


Another Utility from RAK-~-WARE 


Bob Kovacs iS Sure keeping busy! Last month he announced the 
Cross Reference Utility which works with your S-C ASSEMBLER II 
source programs. This month he has a Global Search & Replace 
Utility ready (see his ad on page 4). It is a nice companion to 
his disassembler, because it gives you a fast way to change all 
the labels made up by the disassembler into meaningful names. 


If You Need Disks... 


For a limited time, I am able to offer you a good price on 
Verbatim DataLife disks. These are bulk packaged, 20 to a pack, 
with no labels and with white sleeves. They are the same ones I 
use myself. I will send you a package of 20 for only $50. 


Hi-Res SCRN Function for Applesoft 


Apple's Lo-Res graphics capability includes a SCRN(X,Y) function, 
to determine the color currently on the screen at the given x,Y 
point. For some reason they did not provide the corresponding 
HSCRN(X,Y) function for Hi-Res graphics. 


The following program implements the HSCRN function using the "&" 
character. If you write the statement "& HSCRN (A=X,Y)", this 
program will store either al or a 0 into the variable A. The 
value 0 will be stored in A if there is not a spot plotted at X,Y; 
the value 1 will be stored if there is a spot. 


Note that HPLOT(X,Y) may not result in a spot being plotted at 
X,Y; it depends on the HCOLOR you have set. If the HCOLOR is 
white, a spot will always be plotted; if it is black, a spot will 
always be erased; the other four colors may or may not plot a 
spot, depending on position and color. 


The &HSCRN statement does not return the actual color, because 
that is MUCH more difficult to determine. The actual color 
depends on: whether the adjacent spots are on or off; whether X,Y 
is in an even or odd byte; whether X,Y is in an even or odd bit; 
and whether the sign bit of the byte is on or off. If you decide 
to add the capability to return a color value (0-7), send me a 
copy for this newsletter! 


DISAS& - Tue Iwrecticent 2-Pass Disassemacer For THe APPLE II anp APPLE II Prus 
18 AN INVALUABLE AID FOR UNDERSTANDING AND MODIFYING MACHINE LANGUAGE PROGRAMS 


Version 2.0 Ofrers THese Brann New Features: 


SELECTABLE OUTPUT FORMATS ARE DIRECTLY COMPATABLE WITH DOS TOOLKIT, LISA anp S-C Assemacers 
NO RESTRICTION ON DISASSEMBLED BLOCK LENGTH (NOW YOU CAN DISASSEMBLE DOS OR APPLESOFT IN ONE OPERATION) 


CORRECTLY DISASSEMBLES DISPLACED OBJECT Gove (THE PROGRAM BEING DISASSEMBLED DOESN'T HAVE TO RESIDE 
IN THE MEMORY SPACE IN WHICH IT EXECUTES 


USER DEFINED LABEL TABLE REPLACES ARBITRARY LABEL ASSIGNMENTS (EXTERNAL AND PAGE ZERO LABELS CAN NOW 
BECOME MORE MEANINGFUL, E.G.-. JSR WAIT, LDA WNDTOP - USE OF TABLE IS OPTIONAL 


MONITOR ROM LABEL TABLE ALSO INCLUDED WITH OVER 100 OF THE MOST COMMONLY USED. SUBROUTINE LABELS (LABEL 
TABLE SOURCE 1S PROVIDED SO YOU CAN EXTEND AND CUSTOMIZE IT TO YOUR OWN NEEDS) 


Pius Act Tue Features OF Toe Oricinac DISASA 


e 100% MACHINE LANGUAGE FOR FAST OPERATION  AUTO-PROMPTING FOR EASY USE  e LABELS AUTOMATICALLY 
ASSIGNED AS PG ZERO, EXTERNAL AND INTERNAL oe LABELS AND ADDRESSES ARE SORTED FOR USER CONVENIENCE 
e EQUATE DEFINITIONS GENERATED FOR PG ZERO AND EXTERNAL REFERENCES AUTO SOURCE SEGMENTATION FOR 
EASIER READING AND UNDERSTANDING AND MORE! 


PROGRAM DISKETTE AND USER DOCUMENTATION: $ 30.00 (SHIPPING & HANDLING INCLUDED) 


UPGRADE KIT FOR PURCHASERS OF ORIGINAL DISASM: $ 12.50 (DiIsxeTTE/DOCUMENTATION) 


RAK-WARE 
41 RacpH Roap 
West Orance, NJ 07052 
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Apple 


1000 * o 
1010 * HI-RES SCRN FUNCTION ~ 
1020 * 
1930 * HSCRN( A=X,Y ) 4 
1040 * X,Y DEFINES THE SPOT a 
1050 * REC 0OR1 Oo 
1080 OR $300 ke 
1080 . : .H SCRN - S » 
% ro) 
1109 AMPERSAND . VECTOR ~EQ $3F5 U * ms 
1120 CHRGET ° OB1 -~ OW 
1130 CHRGOT : 0B7 a o fA 
1140 SYNCHR ° ECO ~~ oO © Il 
1150 SYNTAX.ERROR : BC9 a5 8 fe 
1160 PIRGET . FE3 ; a Q 
1170 SNGFLT : 301 Oo 4 HO 
1180 HPOSN . 411 Q OH 
1190 HFNS . 6B9 Q om x 
1200 * Sih meee 
1210 VALUE. TYPE e 1] pe | ee fx) eon] 
1334 FORMULA. PNIR ; Sue we 
- 1267 TOKEN. “ER no QE aME ce 

1389 $= clad tate 
1290 » SETUP AMPERSAND VECTOR Om Na ue 

AQ AC 1310 SETUP LDA #$4C JMP OPCODE OE 

8D F5 03 1320 STA ~ VECTOR Pam Sand 

AS 10 1330 LDA #HSCRN HUuONKO A 

8D F6 03 1340 STA -VECTOR+1 CSCmm Mh wn, 

aD £7 03 1366 GOA VECTOR#2 ae 

60 1370 RTS INnANaeeone 
1) wom 

*. 

AQ 48 1410 HSCRN LDA #'H TEST FOR "HSCRN(" 

20 CO DE 1420 JSR SYNCHR FIRST aan . . 

Ag Di 43 LDA #TOKEN.SCRN AND THEN TOKEN "SCRN( 

20 CO DE 144 JSR SYNCHR 

20 E3 DF 145 JSR PTRGET SCAN THE VARIABLE NAME 

85 85 146 STA FORMULA.PNIR SAVE ITS POINTER ADDRESS 

84 86 1470 STY FORMULA. PNIR+1 

AS DO 1480 LDA #TOKEN.EQUALS CHECK FOR "=" 

20 CO DE 1490 JSR SYNCHR 

AS 12 1500 LDA VALUE.TYPE+1 SAVE VARIABLE TYPE ON STACK 

48 1510 PHA 

A5 ll 1520 LDA VALUE. TYPE 

48 1530 PHA 

20 BS F6 1540 JSR HENS SCAN "X,Y" EXPRESSIONS 

20 11 P4 1350 JSR HPOSN SET UP BASE, Y-REG, AND MASK 

20 B7 00 156 JSR CHRGOT CHECK FOR FINAL ") 

C9 29 1570 CMP #°) 

DO 12 1580 BNE ,2 SYNTAX ERROR IF NOT THERE! 

20 Bl 00 1590 JSR CHRGET POSITION FOR NEXT STATEMENT 

AS 30 1600 LDA HMASK ISOLATE SPOT AT X, 

31 26 1610 AND (HPNTIR) ,Y 

FO 02 1620 1 SPOT IS OFF, RETURN ZERO 

AQ 01 1630 $1 SPOT IS ON, RETURN 1 

As 1640 .1 TAY 

20 gl E3 1650 JSR SNELT CONVERT BYTE TO REAL VALUE 

4c 5B DA 1660 . MP B ‘STORE IN VARIABLE, AND KEEP GOING! 

4C C9 DE 1670 .2 JMP SYNTAX.ERROR 
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~ 16297,0: GET A$: GOTO 90 


- 16298,0 
POKE 


POKE 
100 GET AS: 


90 


Conquering Paddle Jitter... cc... cccccvcccccvevsceceeee Brooke Boering 
A well-known problem with the paddles supplied with the Apple (at 
least they USED to be supplied!) concerns their tendency to rock 
back and forth between two adjacent values, "Jittering" like this 
can cause problems unless accuracy is unimportant, or unless the 
effect is somehow pleasing. 


One solution to the jitter problem is to force the new paddle 
reading to move at least two increments from the prior reading. 
This words, but at the price of lower resolution. Also, it can 
have subtle side-effects. 


A better solution is to keep track of the previous direction of 


movement, and enforcing the "rule of two" only if the direction is 
reversed. 


The following program demonstrates my solution. It is set up to 
work with Applesoft, but it would be rather simple to make it 
directly callable from your own assembly language routines. To 
use from Applesoft, POKE the paddle number (0-3) at 768, CALL 770, 
and read the paddle value with PEEK(769). 


NEW UTILITIES FOR S-C ASSEMBLER 


GLOBAL SEARCH & REPLACE 


REPLACES LABEL NAMES QUICKLY AND EASILY 
SEARCH ALL OR PART OF SOURCE CODE 
OPTIONAL PROMPTING FOR USER VERIFICATION 
PROGRAM DISKETTE + DOCUMENTATION: $ 20,22 


Cross REFERENCE TABLE 


A COMPLETE CROSS REFERENCE OF GLOBAL LABELS BY LINE # 
TABLE GENERATED IN ALPHABETICAL ORDER 

LEADING LABEL LINE NUMBERS HIGHLIGHTED 

SEE EXAMPLE OUTPUT IN AD OF MARCH ‘APPLE ASSEMBLY LINE’ 
PROGRAM DISKETTE AND DOCUMENTATION: ¢ 90, 22 


THE ABOVE MACHINE LANGUAGE UTILITIES ARE FOR USE WITH THE 
S-C ASSEMBLER VERSION 4.0 
RAK-WARE 


41 Ralph Road 
West Orange, NJ 07052 
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I set up the following Applesoft program to test the routine, and 
to compare it with normal paddle readings: 


10 POKE 768.0:CALL 770:PRINT PEEK(769) :GOTO10 
20 PRINT PDL(0) :GOTO20 


I typed RUN 20 and set the paddle to a jittery position. Then I 
typed control-C and RUN 10 to test the smoothing subroutine. The 
program really works! 


* 
1813 * PADDLE JITTER SMOOTHER 
1838 * POKE 768,<PADDLE NUMBER> 0, 1, 2, OR 3 
1040 * CALL 
1050 * P=PEFK (769) | PADDLE VALUE 0-255 
FBIE- 1070 MON.PREAD .BQ SFBIE SUBROUTINE TO READ PADDLE 
1898 -OR $300 
1100 * 
0300- 1110 PADDLE.NUMBER .BS 1 
0301- 1120 PADDLE . VALUE BS 1 
1140 PADDLE. JITTER. 
0302- AD 00 03 1150 LDA PADDLE.NUMBER 
0305- 29 03 1169 AND #3 BE CERTAIN 0>=PDL#>=3 
0308- 20 1E FB 1180 JSR MON.PREAD READ PADDLE VALUE 
030B- 98 1190 TY SAVE IN A-REG TOO 
030c- or 39 03 1200 CPY PADDLE.VALUE.1 
O30F~ FO 24 +1210 BEQ .8 THIS VALUE 
0311- AE 39 03 1220 PADDLE.VALUE.1 DETERMINE PREVIOUS DIRECTION 
0314- EC 3A 03 1230 CPX PADDLE.VALUE. 2 
0317- BO 08 1240 . BCS .2 TT WAS INCREASING 
1260 * IT WAS DECREASING... 
0319- oe 39 03 138 CPY PADDLE.VALUE.] WHAT IS CURRENT DIRECTION? 
031C- 96 11 ~~ +139 BCC .6 STILL DECREASING, SO ACCEPT IT 
O31E- 88 1300 DEY SEE IF ONLY 1 STEP 
O31F- BO 06 =i 10 . BCS .5 ~ « eALWAYS 
349 * JT WAS INCREASING.. 
0321- CC 39 03 1340 .2 CPY PADDLE.VALUE.1 DETERMINE CURRENT DIRECTION 
0324~ BO 09 ~—S«:1350 BCS .6 STILL INCREASING, SO ACCEPT IT 
0326- C8 } 60 . INY SEE IF ONLY 1 STEP 
1380 * REVERSED DIRECTION 
93 7- Or 39 03 1406 5 CPY PADDLE.VALUE.1 IF SAME NOW, IGNORE IT 
-~D 1 BNE . USE NEW VALUE 
032C- 8A 1420 TXA USE PREVIOUS VALUE 
032D- BO 06 1430 BCS .8 .» ALWAYS 


* 
1420 ; ACCEPT NEW READING 
Q032F- 8E 3A 03 1456 6 STX PADDLE.VALUE.2 OLDEST READING 


0332- 8D 39 03 1488 * STA PADDLE.VALUE.1 PREVIOUS READING 
83 5- 8D 01 03 1500 .8 STA PADDLE.VALUE CURRENT READING 
8- 60 i250 + RTS 
0339- 00 1340 PADDLE.VALUE.1 .DA #0 
033A- 40 PADDLE.VALUE.2 .DA #0 
1550 * 
SYMBOL TABLE 
FBIE- 


BON FREAD ATER 
0302- PADDLE. JITTER.SMOOTHER 
age5 rung “08-0327 -06=032F, .08=0335 


6 ADDL. NOMBE 
o30]- EAD ADDLE: VALUE VALUE.1 
033A- PADDLE. VALUE. 2 
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Don't Be Shiftless 


Now for another article aimed at that half of you who are really 
new to 6502 assembly language! 


Sliding the bits in a byte back and forth, to the left or the 
right, is one of the traditional things computers like to do. Big 
computers have fancy instructions for doing it in many different 
ways, with special effects along the way. The 6502 only has four 
"shift" opcodes, so we have to work harder to get all the types of 
shifting our programs need. 


Why shift anything? For various reasons, to suit your fancy. 
Since data in a byte is normally construed as a binary number, a 
shift left one bit-position will double the value and a shift 
right one bit-position will halve the value. If it is important 
to isolate a particular bit field out of a byte, and then to left 
Or right justify the value which was stored in that field so that 
testing or arithmetic can be performed, you need shifting 
instructions. In order to implement multiply and divide on the 
6502 you need shifting instructions. To position data for 
insertion into a bit field within a byte you need to shift. And 
more, 


Show me_a picture of a shift, Well, the 6502 makes that easy, 
because it is limited to shifting a byte to the left or the right, 


one bit-position at a time. 


First let's look at the LSR instruction, which shifts right one 
bit-position. "LSR" stands for “Logical Shift Right". LSR will 
Shift the contents of a byte one bit-position to the right, like 
this: 


Old value: 100112101 


spe BS? \WW\W\N CARRY 


New value: 0011410 


LSR shifts in a zero-bit on the left end; the bit that is shifted 
out the right end goes into the CARRY status bit. 


In the sample above the binary value of the old byte is $9D in 
hex, or 157 decimal. aAfter shifting, the value is $4E hex or 78 
decimal (157/2 = 78.5). 


The fact the the bit shifted "out" goes into the CARRY status bit 
makes it possible to test what that bit was. For example, if you 
need to test a byte to see if it is even or odd, you can LSR it 
once and then do BCC or BCS to test the carry bit. If carry is 
set, the number was odd; if clear, it was even, The bit stored in 
CARRY can have other uses we will discover later. 


Now let's see the ASL ("Arithmetic Shift Left") do its thing,, It 


will shift a byte one bit-position to the left, with a zero coming 
in the right end. The bit shifted out the left end goes into the 
CARRY status bit. See the similarity to the LSR instruction? 
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CARRY 


Old value: 000141 


ove f/f — 


New value: 001110410 


Note that the value is doubled; $1D (29) became $3A (58). This 
will not always be true; if the bit shifted out was a l1-bit, it 
will be doubled modulo 256. Integer BASIC users will know what 
that means, because they have the MOD function. For 
Applesoft-only people, it will mean here that the result is 256 
less than the doubled value should be. Let's see an example: 
shifting 10011101 with ASL produces 00111010; $9D (157) becomes 
S3A (58), which is 256 less than 2*157. 


More about the carry bit, Suppose I want to see if the third bit 
in a byte is 1 or 0. If the bit positions are numbered left to 
right from 7 down to 0 (like this: 765 43 2 1 0), I want to 
test bit 5. If I do three ASL's in a row, bit 5 will be in the 
CARRY status bit, and I can test it. Or, I could do two ASL's in 
a row, and look at the MINUS status bit. After a shift, the MINUS 
status bit is set if the new bit 7 is a l-bit, or cleared if bit 7 
is a O-bit. The BPL and BMI instructions test the MINUS status 
bit. 


There are two more shift instructions to look at: ROL and ROR. 
"ROL" iS pronounced like a type of bread you eat at dinner. and 
"ROR" like the noise those giant cats at the zoo make. “ROL” 
stands for “Rotate One Left"; "ROR" means "Rotate One Right". 

They work just like LSR and ASL, except for what is shifted in to 
the byte. LSR shifts a zero-bit in the left end, and ASL shifts a 
zero-bit in the right end. ROL and ROR shift the old CARRY status 
bit in, just before the shifted-out bit comes into the CARRY bit. 


Byte Carry 
Old value: 10011101 1 
<Do ROL> 
New value: 001211011 1 
<Do ROL> 
New value: 011410414141 0 
<Do ROL> 
New values 11101110 0 
<DoO ROR> 
New value: 01411 0 11 0 
<Do ROR> 
New value: 0 11i10o0i1i4i1 1 
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<DO ROR> 


New value: 10031313104] 1 
<Do ROR> ; 

VN \ 
New value: 110031110 1 


What about shifting values which take two bytes? We can do it 
using combinations of the four opcodes. Suppose you want to shift 
a 16-bit value stored at $1234 and $1235 left one bit-position. 
You want a zero to enter the least significant bit position, which 
is bit 0 of $1234. You want the most significant bit, bit 7 of 
$1235. to be in CARRY when you are through. Here is the program: 


ASL $1234 0 --> bit 0, bit 7 --> CARRY 
ROL $1235 CARRY --> bit 0, then bit 7 into CARRY 


Simple, isn't it! 


Addressing Modes, The four shift instructions all have the same 
five addressing modes. There is a one-byte form which shifts the 
A-register. Some assemblers write this as “ASL A", and don't 
allow "A™ to be used as a label elsewhere. The S-C ASSEMBLER II 
writes it as just "ASL", so you can use "A" as a label elsewhere 
if you wish. The other addressing modes are: zero page direct; 
zero page,X; absolute; and absolute,X. No indirect modes, or 
indexing by Y modes are available. 


[If you remember the article a few months ago about the “secret” 
opcodes, you will also remember that the two indirect-indexed 
modes and the absolute,Y mode are available if you don't mind what 
happens to the A-register after the shift. Or, if what does 
happen is something you also wanted. You might look up the 
article, ] 


Some _ real examples. The Apple Monitor ROM has some good examples 
in it. Disassemble (or look in the Monitor listing in the 
Reference Manual) at SFBCl (the BASCALC subroutine. If you have 
the old Monitor ROMs, the multiply and divide subroutines at $FB60 
and SFB81 are good examples. The PRBYTE subroutine at SFDDA uses 
four LSR's to get at the first hex digit. The subroutine DIG at 
SFF8A is used to convert ascii hex numbers to binary. Let's look 
at that one here: 


FF8A: A2 03 DIG LDX #$03 LOOP 4 TIMES 

FF8C: OA ASL LEFT JUSTIFY DIGIT VALUE 
FF8D: OA ASL 

FF8E: OA ASL 

FF8F: OA ASL 

FF90: OA NXTBIT ASL SHIFT DIGIT INTO A2L,A2H 
FF91: 26 3E ROL A2L 

FF93: 26 3F ROL A2H 

FF95: CA DEX 

FF96: 10 F8 BPL NXTBIT 
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The ASCII value of the hex digit has already been modified so that 
the digit's value is in bits 3-0. The first four ASL‘s shift 
those 4 bits up to bits 7-4. The next ASL shifts the top bit into 
CARRY, and then the two ROL's shift that bit into the 16-bit value 
at A2L and A2H. The ASL-ROL-ROL loop is done four times, so all 
four bits are shifted into A2L,A2H. 


In the Applesoft ROMs there is a subroutine which shifts a 32-bit 
value right any number of bit-positions. The subroutine is used 
in the floating point arithmetic package to adjust mantissas. It 
has the interesting feature (for speed's sake) of shifting 8 bits 
at a time until the shift count is less than 8. This is done by 
moving bytes with LDY-STY pairs. The code is at $E8DC thru $E912. 
The normal entry point is at SE8F0O, with the number of 
bit-positions to be shifted in the A-register as a negative 
number, and with CARRY clear. The code above SE8FO shifts right 
by bytes, and the code after SE8FO shifts right by bits. The data 
to be shifted is in page zero, offset by the value in the 
X-register. 


A somewhat similar subroutine is used to normalize the mantissa 
after a calculation. “Normalize” means to shift the mantissa left 
until the most significant bit is a one-bit. This code is at 
SE82E-E854 and $E874-E880. The first portion shifts left by bytes 
until the leading byte is non-zero (or until it has been 
determined that the whole value is zero). Once the leading byte 
is found to be non-zero, the second portion of code shifts left by 
bits until the leading bit is 1. The number of bit-positions 
shifted is counted as the subroutine moves along, and that value 
is subtracted from the exponent value of the floating point number 
($E882-E88B). 


Disassemble the routines I have pointed out in the various ROMs, 
and study them a while. Then try writing some of your own 
examples. Here is an assignment: write a subroutine that will 
shift a 16-bit value left or right from 0-15 bit positions. The 
value to be shifted is in page zero at $9D and S9E. The shift 
count is in the A-register. If the value in A is zero, return 
without doing anything. If A is negative, it indicates a shift 
right. If A is positive, it means to shift left. Okay? Give it 
a try! 
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TRANSFER OPERATIONS 


MEMORY 
$0000-SFFFF 


STX LDX STA LDA STY LDY 
TXA TYA 
A-REGISTER Y-REGISTER 
TAX TAY 
TXS TSX PLA PHA 


PLP 


STACK 
$0100-S01FF 


OTHER QPERATIONS 


P-REGISTER 
NV*BDIZC 


PHP 


A-REGISTER X-REGISTER Y-REGISTER MEMORY 


Arithmetic: 


Logical: 


Shift: 


Compare: 


Status: 
CARRY BCC, 
OVERFLOW BVC, 
DECIMAL 
INTERRUPT 
ZERO BEQ, BNE 
MINUS BPL, BMI 
Jump: JMP, JSR 
Returns: RTS, RTI 
Other: NOP, BRK 
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Decision 


Decision Systems 
S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 


$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAN-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE.... CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Appie Il is a registered trademark of the Apple Computer Co. 
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Commented Listing of DOS 3.2.1 $B800-BCFF 


Here is the third installment of DOS disassembly, covering the 
routines called by RWTS. 


There are six major subroutines between $B800 and BCFF. 
PRE.NYBBLE and POST.NYBBLE convert between memory format and disk 
format. READ.ADDRESS reads the next address header. READ.SECTOR 
reads a sector, and WRITE.SECTOR writes one. SEEK.TRACK .ABSOLUTE 
moves the head in or out to the desired track. With the sole 
exception of initializing a disk, all actual disk I/O is done by 
these six subroutines. 


The bits that are written on the disk are considerably different 
from those in memory. Some computer systems make the 
transformation with expensive hardware controllers, but Wozniak's 
unigue system does most of the work in software. The 13-sector 
controller cannot read accurately data which has two or more 
consecutive zero-bits. Of course, almost every byte you want to 
write has two or more zero-bits in a row! Therefore the software 
must encode the bytes you want to write. 


One way to encode the bytes is to take four bits at a time, and 
interleave them with "clock" bits. In fact, the data in the 
address headers is recorded this way. For example, to record the 
byte "xyxyxyxy”" in an address header, the two bytes "lxlxlxlx" and 
"lylylyly"* will be written. This means a 256-byte sector will 
take 512 bytes on the disk surface (plus header and trailer). 


DOS 3.2.1 (and previous versions) use a more elaborate scheme. 
Each 256-byte sector is recorded as 410 bytes on the disk surface. 
The subroutine PRE.NYBBLE converts the 256-byte buffer to 410 
bytes of 5-bits each. then the 5-bit values are converted to 
8-bit values from NYBBLE.TABLE. These 8-bit values are chosen 
carefully; they have the following properties: 1) the first bit 
is "1"; 2) no consecutive zero-bits; and 3) the values SAA and 
$D5 are not used. As a sector is read back into memory, 
BYTE.TABLE is used to convert the 8-bit codes back to 5-bit 
values. POST.NYBBLE converts the 410 5-bit values back to 256 
8-bit bytes. 


In case you are curious, PRE.NYBBLE moves the bits from 256-bytes 
to 410 bytes like this: 


1. The first 5 bytes are rearranged into 8 bytes: 


5 input bytes 8 output bytes 
76543210 76543210 
AAAAAB BB O0OOAAAAA 
CcCCcCcCccDODD 0O00cCcCCC 
EEEEEF F F O0O0EEEEE 
GGGGGHIJ 000GGGGG 
K KK K KLMN 000K K K K K 

00 0 BBBHLI 
00 ODDODIMS 
OO0OOFFFQJIN 
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2. The 8 bytes are stored at the end of the 8 sections (at 
BB32. BB65. BB98, BBCB,. BC32. BC65. AND BC98). 


3. The second group of 5 byteS iS rearranged into 8 bytes, 
and stored right before the first 8 (at BB3l, BB64, ..., 
BC97). 


4. The next 49 groups of 5 bytes are treated in the same 
way, with the last group being stored at BBOO, BB33, BB66, 
BB99, BBCC, BCO0O. BC33. AND BC66. 


5. The top 5 bits of the last byte are stored at BBFF, and 
the bottom 3 bits of the last byte are stored at BC99. 


DOS 3.3 uses an even better scheme, but it requires a change in 
the controller ROMs. The change to one ROM gives you a different 
boot program; the other ROM makes the controller able to read two 
consecutive zero-bits accurately. (Note that SOME 
controller-drive combinations may be able to read two zero-bits in 
a row accurately WITHOUT the new ROM. Anyway, mine works!) DOS 
3.3 converts the 256 bytes to 342 6-bit values; since each sector 
is shorter, more sectors can be written in each track. I may 
publish the disassembly of these same subroutines in the DOS 3.3 
version next month. 


Remember that DOS 3.2.1 puts 13-sectors on each track, with each 
sector having this format: sync bytes, address header, sync 
bytes, data block. Sync bytes are written to automatically 
synchronize the reading process, so that we can be sure we are not 
splitting bytes. Each sync byte is 8 one-bits followed by 1 
zero-bit. The address header is 14-bytes long on the disk 
surface, and looks like this (in hex): D5 AA B5 vv vv ss ss tt tt 
cc cc DE AA EB. ‘vv vv" stands for the two bytes used to record 
the volume number; "ss ss" is the sector number; “tt tt" is the 
track number; and “cc cc* is the checksum of the volume, track, 
and sector. The data block is like this: D5 AA AD <410 bytes of 
data> <checksum> DE AA EB. 


1010 * 
1020 * DOS 3.2.1 oISASSMELY $SB800 
1025 * COMMENTS BY BOB SANDER-CEDERLOF 4- BBi 
1040 800 
1050 Th 800 
1060 * 
003E- 1070 BUF.PNIR .EQ S3E,3F 
0478- 1080 CURRENT . . TRACK -EQ $0478 
1199 * DISK CONTROLLER ADDRESSES 
CcO080- 1120 PHOFF . 080 PHASE-OFF 
c08l- 1130 . 081 PHASE 
CO88- 1140 MTROFF . 088 MOTOR OFF 
Cc089—- 1139 . 089 MOTOR 
CO8A- 116 . O8A DRIVE 0 ENABLE 
CO8B- 1170 DRVIEN . 08B DRIVE 1 ENABLE 
CO8C- 1180 QO6L . osc SET LOW 
CO8D- 1190 66H . 08D SET HIGH 
CO8E- 1200 O7L : O8E SET O7 LOW 
CO8F- 1210 7H . O8F SET 67 HIGH 
1230 * 06 Q7 USE OF Q6 AND Q7 LINES 
1250 * LOW LOW READ (DISK TO SHIFT REGISTER 
1260 * LOW HIGH WRITE (SHIFT REGISTER TO DISK) 
1270 * HIGH LOW SENSE TE PROTECT 
1280 * HIGH HIGH LOAD SHIFT REGISTER FROM DATA BUS 
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1290 * 

1300 ¢-——————_-_______________________ 

1310 * CONVERT 256 BYTES TO 410 5-BIT NYBBLES 
B800- A2 32 1338 PRE. WYER 50 51 BYTES PER SECTION 
B802- AO 00 ~—‘1350 LDY fe INDEX INTO 256-BYTE BUFFER 

1360 *——BUFFER PART 1, SECTION 1——— 
B804- Bl 3E. ~——: 1370 .1 LDA (BUF .PATR Y GET BYTE FROM BUFFER 
BB06- 85 26 1380 STA $26 VE HERE FOR LOWER 3 BITS 
B808- 4A 1390 LSR USE TOP 5 BITS 
B809- 4A 1400 LSR 
B80A- 4A 1410 LSR 

20 STA RWIS.BUFFER.1.1,X 


1430 *——BUFFER PART 1, SECT ION’ 2——— 
iny NEXT 


B80E- C 40 REAL BYTE 
B80F- Bl 3E 1450 Lh SF ePNIR) ,-Y GET BYTE FROM BUFFER 
B811- 85 27 1460 STA $27 VE HERE FOR LOWER 3 BITS 
B813- 4A 1470 LSR USE TOP 5 BITS 
B814—- 4A 1480 LSR 
B815- 4A 1490 LSR 
B816- 9D 33 BB 1500 STA RWIS. BUFFER. 1,.2,X 
1510 *——BUFFER PART 1, SECT ION 3——— 
B819- C8 1520 INY REAL BYTE 
B81A- Bl 3E 1530 LDA (EOF -PNIR) ¥ GET BYTE FROM BUFFER 
B81C- 85 2A 1540 STA $2A VE FOR LOWER 3 BITS 
B81E- 4A 1550 R 
B8lF- 4A 1560 LSR USE TOP 5 BITS 
B820— 1570 LSR 
B821- 9D 66 BB 1580 STA RWIS. BUFEER. 1,.3,X 
1590 *——BUFFER PART 1, SECT ION’ 4—_— 
B824- C8 1600 INY REAL BYTE 
B825- Bl 3E 1610 LDA (BUF .PNIR) .¥ GET BYTE FROM BUFFER 
B827- 4A 1620 LSR TOP 5 B 
B828- 26 2A 1630 ROL $2A BIT 0 INTO 
B82A- 4A 1640 
B82B- 26 27 1650 ROL $27 BIT 1 INTO $27 
B82D- 1660 LSR 
B82E- 26 26 1670 ROL $26 BIT 2 INTO $26 
B830- 9D 99 BB 1680 STA »BUFFER.1.4,X 
1690 *——-BUFFER PART 1, SECTION 5——— 
B833- C8 1700 I 
B834- Bl 3E 1710 LDA (BUF.PNIR BYTE FROM BUFFER 
B836- 4A 1720 LSR TOP 5 BITS 
B837- 26 2A 1730 ROL $2A BIT 0 INTO $2A 
B839- 4A 1740 
B83A- 26 27 1750 ROL $27 BIT = INTO Bg) 
B83C~- 4A 1760 LSR HOLD B N CARRY-BIT 
1780 *-——-BUFFER PART 2, SECTION 0——— 
B840- A5 26 1790 LDA $26 APPEND BIT 2 TO $26 
B842- 2A 1800 ROL 
B843- 29 1 1810 AND #S1F 5-BIT MASK 
B845- 9D 00 BC 1820 STA RWIS.BUFFER.2.1,X 
1830 *——BUFFER PART 2, SECTION 1—— 
B848- A5 27 1830 LDA ; 7 
B84A- 29 1F 1850 AND #51F 
B84C- 9D 33 BC 1860 STA RWTS.BUFFER.2.2,/X 


1870 *——BUFFER PART 2, SECTION ;— 
LDA S28 


51- 29 1 1890 S1F 
B853- 9D 66 BC 1900 | STA. RIS. BUPFER.2.3,X 
B856- C8 i 2 INY NEXT REAL BYTE 
B85 /- il DEX NEXT BYTE IN EACH SECTION 
B858—- 10 AA 1380 BPL .1 LOOP UNTIL EACH SECTION FULL 
B85A- Bl 3E 1960 LDA (BUF.PNIR),Y GET LAST REAL BYTE 
B85C- AA 1970 
B85D- 29 Q7 1980 USE LOWER 3 BITS 
B85F- 8D 99 BC 1990 ota RWIS .BUFFER. 2.4 
B862— 8A 2000 NOW GET 5 UPPER BITS 
B863- 4A 2010 TSR 
B864— 4A 2020 LSR 
B865- 4A 2030 LSR 

866- 8D FF BB 2040 STA RWTS.BUFFER.1.6 
B869- 60 2050 RTS 


14 - Apple Assembly Line -- May, 1981 -- Copyright (C) S-C SOFTWARE 


2060 * 
2070 * 
2080 * 
2090 * 
B86A- 38 2110 
B86B- BD 8D CO 2120 
B86E- BD 8E C0 2130 
B871- 30 7C 2140 
B873- 86 27 2150 
B875- 8E 78 06 2160 
B878- 00 BC 2170 
B87B- 85 26 2180 
B87D- A9 FF 2190 
B87F- 9D 8F CO 2200 
B882- 1D 8C CO 2210 
B885- 48 2220 
B886- 68 2230 
B887— EA 2240 


B88A- 05 26 2260 .1 
B88C- 20 F4 B8 2270 
B88F- 88 2280 
B890- DO F8 2290 
B892- A9 DS 2300 
B894— 20 F3 B8 2310 
B897- A9 2320 
B899- 20 F3 B8 2330 
B89C- AQ 2340 
B89F- 20 F3 BB 2350 
B8A1- 98 2360 
~ AQ 9A 2370 
B8A4—- DO 03 2380 
B8A6- BI 00 BC 2390 .2 
B8A9- 59 FF BB 2400 .3 
B8AC~ AA 2410 
BD 9A BC 2420 
B8BO- A6 27 2430 
B8B2- 9D 8D CO 2440 
B8B5- BD 8C CO 2450 
B8B8- 88 2460 
B8B9- DO EB 2470 
B8BB- A5 26 2480 
B8BD- EA 2490 
B8BE- 59 00 BB 2500 .4 
B8C1— AA 2510 
B8C2- BD 9A BC 2520 
B8C5- AE 78 06 2530 
B8C8- 9D 8D CO 2540 
B8CB- BD 8C CO 255 
B8CE- B9 00 BB 256 
B8D1- C8 2970 
B8D2- DO EA 2580 
B8D4- AA 2590 
B8D5- BD 9A BC 2600 
B8D8- A6 27 2610 
BEDA- 20 F6 BB 2620 
B8DD- A9 DE $630 
B8DF- 20 F3 B8 264 
B8E2- A9 AA 2650 
B8E4—- 20 F3 B8 2660 
B8E7~- A9 EB 2670 
B8E9- 20 F3 B8 2680 
B8EC- BD 8E CO 2690 
B8EF- BD 8C CO 2700 .5 
B8F2- 60 2710 
2720 * 
B8F3- 18 2730 WRT1 
B8F4- 48 2740 WRT2 
B8F5- 68 2750 
Bars 1p 8 CO 3790 
B&FC- 60 5460 
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WRITE A SECTOR ON THE DISK FROM RWTS.BUFFER 
H,X HIGH 7 LOW 
i fe #8 DSS WRITE PROTECT STATUS 
PROTECTED 
Re HERE, ‘TOO 
“BUFFER. 2 2. 1 FIRST NYBBLE OF DATA 


BA Rear Tm, OS OE a REGISTER 


NO 

LDY #10 WRITE TEN MORE SYNC BYTES 
ORA $26 WAST: 

JSR WRT2 WRITE (A) ON DISK 


BNE .1 UNTIL 10 OF THEM 
LDA #SD5 WRITE DATA HEADER 


SET I 
at 5-BITS TO 8-BITS 
SLOT AGAIN 
gHX OTH: TO SHIFT REGISTER 
RYTE ON DISK 
UNTIL ALL BYTES FROM THIS BLOCK DONE 
ie a3e GET FIRST NYBBLE 


EOR RWIS. BUFFER. 1. De pe POR WITH CURRENT NYBBLE 
TABLE, MAP pie 8-BIT VALUE 


067 
el. Be On eal 
GN DISK 
mh "Y 


MORE TO DO 

on LAST NYBBLE 
NYBBLE.TABLE,X MAP TO 8 BITS 

LDX $27 SLOT # AGAIN 

JSR WRT3 WRITE CHECK SUM ON DISK 
$SDE WRITE TRAI 

JSR WRT] 

LDA #SAA 

JSR WRT! 

LDA #SEB 

JSR WRT1 

LDA O7L,X gr 

LDA O6L,X L 

RTS 

CLC WATT 2 CYCLES 

PHA 3 CICLES 

STA Q6H.X Re gn so SHIFT REGISTER 

ORA O6L,X cH: WRITE ON Disk 


2820 
2830 READ.SECTOR 

B8FD- AO 20 ~=2840 IDY #32 MUST FIND $D5 WITHIN 32 BYTES 
B8FF- 88 2850 .1 DEY 
B900- FO 61 2860 ERROR. RETURN 
B902- BD 8C CO 2870 .2 Q6L,X READ SHIFT REGISTER 
B905- 10 FB .~—s«- 2880 BPL WAIT FOR FULL BYTE 
B907- 49 D5 2890 .3 BOR #$D5 SEE IF FOUND $D5 
B909- DO F4 —s_-« 2900 BNE . NOT YET 
B9OB- FA 2910 NOP DELAY BEFORE NEXT READ 
B90C- BD 8C CO 2920 .4 LDA Q6L,X READ SHIFT REGISTER 
B9OF- 10 FB ~—- 2930 BPL .4 WAIT FOR FULL BYTE 
B911- C9 AA ~—_- 2940 Cup # SEE IF SAA 
B913- DO F2. =. 295 
B915- AO 9A _—s-296 Lpy #154 BYTE COUNT FOR LATER 
B917— BD 8C CO 2970 .5 ; READ SHIFT REGISTER 
B9IA- 10 FB —s- 2980 BPL, WAIT PGR FULL BYTE 
B9IC- C9 AD 2990 CMP # IS IT SAD? 
B9IE- DO E7 3000 . . NO 
B920- Ag 00 3020 LDA #0 BEGIN CHECKSUM 
B922- 8 3030 .6 DEY 

923- 84 26 3040 STY $26 
B925— BC 8C CO 3050 .7 LDY 06L,X READ SHIFT REGISTER 
B928- 10 FB..—s_: 3060 L. FULL 
B92A- 59 00 BA 3070 EOR BYTE.TABLE,Y CONVERT TO NYBBLE 
B92D- A4 26 —«-3080 LDY $26 BUFFER INDEX 
B92F- 99 00 BC 3090 A RWIS.BUFFER.2.1,Y 
B932- DO EE —«-.3100 BNE .6 
B934~— 84 36 3119 8 sty $26 | 
B936—- BC 6C CO 3120. LDY Q6L,X READ SHIFT REGISTER 
B939- 10 FB 3130 BPL .9 WAIT FOR FULL BYTE 
B93B- 59 90 BA 31 0 EOR .TABLE,Y OONVERT TO NYBBLE 
B93E- A4 26 150 LDY $26 
B940- 99 00 BB 316 STA .BUFFER.1.1,Y 
B943- CB 3170 INY 
B944- DO EE _‘: 3180 BNE 
B946—- BC 8C CO 3190 .10 LDY Q6L,X READ CHECKSUM 
B949- 10 FB —s- 33200 BPL . 
B94B- D9 00 BA 3210 CMP BYTE. TABLE,Y 
B94E- DO 13: 33220 BNE 
B950- BD 8C CO 3230 .11 # LDA Q6L,X READ TRAILER 
B953- 10 FB —s- 3240 BPL .1l 
B955- C9 DE ~—- 3250 CMP #SDE 

957- DO OA ~=—_: 3260 BNE . 
B959- 3270 NOP 
B95A- BD 8C CO 3280 .12 LDA Q6L,X 

5D- 10 FB .—s—- 3290 BPL .12 
B95F- C9 AA =: 33300 CMP # 

961- FO 5C ~—-: 3310 .RETURN 

3320 ERROR. RETORN 

B963- 38 3330 SEC 
B964- 60 3340 RTS 
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3350 * 
3360 * 
3370 * READ ADDRESS 
3380 READ ADDRESS 
B965- AO F8 3400 LDY isre TY 1800 TIMES (FROM SF8F8 TO $10000) 
B967- 84 26 3410 STY $26 
B969- C8 3420 .1 INY 
B96A- DO 04 =: 3.430 BNE .2 
B96C- E6 26 3440 INC $26 
B96E- FO F3 _—«-: 3450 BEQ ERROR. 
B970- BD 8C CO 3460 .2 Q6L,X | READ SHIFT REGISTER 
B973- 10 3470 BPL 2 
B975- C9 D5 ~=—_—«43480-—=.3 Cup #905 SEE IF SD5 
B977- DO FO 3490 BNE . 
B979- FA 3500 NOP 
B97A- BD 8C CO 3510 .4 LDA Q6L,X READ SHIFT REGISTER 
B97D- 10 3520 BPL .4 FOR 
B97F- C9 3530 CMP isan SEE IF SAA 
B98]- DO F2 3540 BNE 
B983- AO 03 3350 LDY $3 READ 3 
B985- BD 8C CO 3560 .5 LDA Q6L,X READ SHIFT REGISTER 
B988- 10 3570 BPL .5 
B98A- C9 BS —s_: 3580 cup #35 SEE IF $B5 
B98C- DO E 590 BNE 
B98E- AQ 0 600 LDA START CHECK SUM 
90- 85 27 +3610 .6 STA $27 
B992— BD 8C CO 3620 .7 L,X READ REGISTER 
B995- 10 FB 3630 BPL .7 
B997- 6 ROL 
B998- 85 26 3650 STA $26 
B99A- BD 8&C CO 3660 .8 L,X READ REGISTER 
B99p- 10 FB 36/0 BPL 8 WAIT FOR FULL BYTE 
B99F- 25 26 3680 6 MERGE THE NYBBLES 
BOA1- 99 2C 00 3690 STA $2C,Y 2c — CHECK 
B9A4—- 45 27 ~=—- 3700 FOR $27 2D — SECTOR 
B9A6- 88 3710 DEY 2E — TRACK 
BOA7- 10 EZ 3720 BPL .6 2F — VOLUME 
B9AS- AS 3730 TAY TEST CHECK SUM 
B9AA- DO B7 _—«-:3740 BNE ERROR. 
B9AC- BD 8C CO 3750 .9 LDA Q6L,X READ REGISTER 
BOAF- 10 FB -—-.3760 BPL WAIT FOR FULL BYTE 
B9BI- C9 DE 3770 cup #SpE TEST FOR VALID TRAILER 
B9B3- DO AE _—-3780 BNE . 
B9B5—- FA 3190 NOP 
9B6- BD 8C CO 3800 .10 LDA Q6L,X READ REGISTER 
B9B9- 10 FB-—s.238110 BPL .10 
B9BB- C9 AA 3820 CMP # 
OBD- DO A4 8 BNE RETURN 
BOBF- 18 cht 30D RETEN 
B9CO- 60 3860 | RTS 
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STA se: 
*—— BUFFER ART 1, 


CONVERT 410 5-BIT NYBBLES TO 256 BYTES 


(THEY ARE NOW LEFT-JUSTIFIED IN RWIS.BUFFER) 


NYBBLE 
LDX #50 51 BYTES PER SECTION 
LDY #0 

*——BUFFER PART 1, SECTION 1—— 

1 LDA RWIS.BUF 


LDA FER.2.1,X 
TSk RIGHT-JUSTIFY THE NYBBLE 
STA $27 SAVE BIT 0 
STA $26 SAVE BIT 1 
LSR ITS 2-4 
RWIS . BUFFER. 1.1,X 
PNTR) oY STORE IN BUFFER 
ION 2——— 


LSR 

ORA X 

STA (BUF. SHORE THE BYTE 
*—BUFFER PARTI, ION 4—— 

INY 

LDA $26 NEST HES BITS SAVED HERE 

AND #7 MAKE SURE ONLY 3 BITS 

ORA RWIS.BUFFER.1.4,X 

STA (BU PNIR) ,¥ ShORE THE BYTE 
*——BUFFER PARTI, ON 5——— 

INY NEXT BYTE 

LDA $27 USE THE 3 BITS SAVED HERE 

AND #7 MAKE SURE ONLY 3 BITS 

ORA RWIS.BUFFER.1.5,X 
. STA (BUF.PNIR),Y SORE THE BYTE 

INY NEXT BYTE 

DEX 

BPL .1 


LDA RWIS.BUFFER.2.4 GET THE LAST BYTE 
ESR RIGHT JUSTIFY 


LSR 
ORA RWIS.BUFFER.1.6 
STA (BUF.PNIR),Y STORE THE LAST BYTE 


494U * 
4550 * 
4560 * TRACK SEEK 
4510 * 
4580 SEEK.TRACK .ABSOLUT 
BAIE- 86 2B 4590 STX CURRENT SLOT*16 
BA20- 85 2A _—- 4600 STA $2A SAVE TRACK # 
BA22- CD 78 04 4610 CMP -TRACK COMPARE TO CURRENT TRACK 
BA25- FO 53. 4620 9 ALREADY THERE 
BA27- A9 00 4630 
BA29- 85 26 4640 STA $26 # OF STEPS SO FAR 
BA2B- AD 78 04 4650 .1 LDA .TRACK CURRENT TRACK NUMBER 
BA2E- 85 27 4660 STA $27 
BA30- 38 4670 SEC 
BA31- ES 2A 4680 SBC $2A DESIRED 
BA33- FO 33 4690 .6 HA 
BA35- BO 07. = 4700 2 > DESIRED 
BA37- 49 FF — 4710 EOR $SFF CURRENT < DESIRED 
BA39— EF 78 04 4720 INC . TRACK 
BA3C- 90 05 4730 BCC 3 eee 
BA3E- 69 FE 740 . ADC #SFE CARRY SET, SO A=A-] 
BA4O—- CE 78 04 4750 DEC . TRACK TRACK 
BA43- C5 26 760 .3 CMP $26 GET MI OF; 
BA45- 90 02 4770 BCC .4 1. # OF TRACKS TO MOVE LESS 1 
BA47- A5 26 4780 LDA 226 2. # OF ITERATIONS SO F 
BA49- C9 0C23—s 4790 4 CMP #12 : 
BA4B- BO 01 4800 BCS .5 
BA4D- A8 4810 TAY 
BA4E- 38 4820 .5 SEC TURN PHASE ON 
BA4F- 20 6C BA 4830 JSR . 
BA52- B9 8C BA 4840 LDA ONTBL,Y GET DELAY TIME 
BA55- 20 7B BA 4850 JSR DLY106 DELAY 100*A MICROSECONDS 
BA58- 7 ~~ 4860 LDA $27 TRACK NUMBER 
BADA- 18 4870 CLC TURN PHASE OFF 
BA5B- 20 6F BA 4880 JSR .8 
BA5E- B9 98 BA 4890 LDA OFFTBL, 
BA61- 20 7B BA 4900 JSR DLY100 
BA64—- BG 28 4910 INC $26 # OF STEPS SO FAR 
BA66— 4920 . BNE <1] .e ALWAYS 
BA68- 20 7B BA reyt 6 JSR DLY100 
6B- 18 4950 CLC TURN PHASE OFF 
BA6C- AD 78 04 4960 .7 LDA CURRENT. 
BA6F- 29 03 4970 .8 AND #3 ONLY KEEP LOW-ORDER 2 BITS 
BA7I- 2A 4980 ROL 0000 OXxO 
BA72— 05 4990 ORA $2B OSSS O0XX0) MERGE SLOT 
BA74— AA 5000 AS I FOR PHASE-OFF 
BA75- BD 80 CO 5010 LDA PHOFF,X PHASE 
BA78— A6 2B «55020 
7A- 60 5030 .9 
5040 
5050 * SHORT DELAY SUBROUTINE 
BA7B- A211] 5070 DLY100 LDX #17 100*A MICROSECONDS 
BA7D— CA 5080 .1 DEX 
BA7E- DO FD 5090 BNE .1 
BA80—- E6 46 5100 INC $46 
BA82- DO 02. ~=—- 55110 BNE .2 
BAB4- F6 47 5120 INC $47 
BA86- 38 5130 .2 SEC 
87- £9 01 5140 SBC #1 
Bo DO FO 5150 BNE DLY100 
BASB- 60 5160 . RTS 
5180 * DELAY TIMES FOR STEPPING MOTOR 
BASC- 01 30 28 


BA95— 1C 16 IC 5200 ONTBL .HS 01302824201E1DICICIC1C1C 


aA 1¢ 1C 1C 5210 OFFTBL .HS 702C26221F1E1D1C1C1C1C1C 
BAA7— 1C 5220 eHS 1C1C1C1C 
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5230 * 
5240 * 
5250 * BYTE TABLE 
BAOO 235 BYTE TABLE .EQ *-SA8 
BAA8- 00 00 00 
BAAB- 00 01 0 
BAAF- 10 18 02 
BABI- 03 04 05 
BAB4— 96 20 28 
BAB7— 3 5280 HS 00000000010810180203040506202830 
BAB8— 07 09 38 
BABB- 40 OA 48 
BABE- 50 58 QB 
BACI1- OC OD OE 
BAC4—- OF ll 12 
BAC7- 1 5290 HS 070938400A4850580BOCODOEOF111213 
BAC8- 14 15 16 
- 17 19 1A 
E- 1B 1C 1D 
BADI-~ 1E 22 
BAD4~ 23 24 60 
BAD7— 6 5300 eHS 14151617191A1B1C1D1E212223246068 
BAD8- 25 2 fo 
BADB- 78 2 8 
BADE- 88 $2 
BAE1- 2A 
BAE4—- 2D 2E 2F 
BAE/—- 3} 5310 eHS 2526707827808890292A2B2C2D2E2F31 
BAE8- 32 33 98 
AO 34 A8 
BAEE- BO B8 35 
BAF1—- 36 3 33 
4- 3A COC 
g- DO 5320 eHS 323398A034A8B0B8353637393ACOC8D0 
BAF8- 3B 3C D8 
BAFB- EO 3E E8 
BAFE- FO F8 2330 + HS 3B3CD8E03EE8FOF8 
2320 . 410-BYTE BUFFER FOR NYBBLES 
BBOO- 2370 RWIS.BUFFER.1.1 .BS 51 BOO - BB3 
BB33- 5380 RWIS.BUFFER.1.2 .BS 5l B33 - BB6 
BB66- 5390 RWIS.BUFFER.1.3 .BS 51 B66 - BB9I8 
BB99- 5400 RWIS.BUFFER.1.4 .BS 51 99 - BBCB 
BBCC- 5410 RWIS.BUFFER.1.5 .BS 5l BCC - BBFE 
BBFF— 5420 RWIS.BUFFER.1.6 .BS BEF 
BCOO- 5430 RWIS.BUFFER.2.1 .BS 51 00 - BC32 
BC33- 5440 RWIS.BUFFER.2.2 .BS 51 33 -_BC65 
BC66- 5450 RWIS.BUFFER.2.3 .BS 51 66 -BC98 
BC99- 2450 RWIS ~BUFFER.2.4 .BS 1 99 
5480 * NYBBLE TABLE 
5490 * 
5500 NYBBLE.TABLE 
BC9SA- AB AD AE 
BC AF B5 B6 
BCAQ- B7 BA BB 
BCA3- BD BE BF 5510 HS ABADAEAFBSB6B 7BABBRDBEBF 
BCA6- D6 D7 DA 
BCA9- DB DD DE 
BCAC- DF EA EB 
BCAF- ED EE EF 5520 HS D6D7DADBDDDEDFEAEBEDEEEr 
BCB2- F5 F6 F7 
BCB5- FA FB FD 
BCB8- FE FF 30 eHS FSF6F7FAFBFDFEFF 


SBCBA THRU SBCFF IS NOT USED BY DOS 3.2.1 
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